      INTEGER IPRINT, MAXDIF
      LOGICAL SKIP, CUT
      COMMON /CBINUC/ IPRINT, SKIP, MAXDIF, CUT
